home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / tool_inc.zip / GIVETIME.INT < prev    next >
Text File  |  1989-06-02  |  406b  |  8 lines
  1. procedure determine_tasker;     {determine what multi-tasker is active, if any}
  2. procedure give_up_time;         {give up unused time under doubledos}
  3. const
  4.    tasker:  (taskview,                  {taskview/omniview/topview/desqview}
  5.              doubledos,                 {doubledos}
  6.              notasker,                  {single task}
  7.              unknown) = unknown;        {before first call}
  8.